package Options::Attributes::API::InterfaceCustomerGet;

use Options::Attributes::API::WebServiceLink;
our @ISA = qw(Options::Attributes::API::WebServiceLink);    # inherits from WebServiceLink

sub new {
    my ($class) = @_;
    # Call the constructor of the parent class, Person.
    my $self = $class->SUPER::new( $_[1], $_[2], $_[3], $_[4] );
    bless $self, $class;
    return $self;
}


sub _setupParams {
			my $self = shift;
			my @params = (
			    SOAP::Data->type('string')->name('Surname' => $self->{_WSRequest}->{Surname}),
			    SOAP::Data->type('string')->name('PostCode' => $self->{_WSRequest}->{Postcode}),
			    SOAP::Data->type('string')->name('ShopperID' => $self->{_WSRequest}->{ShopperID}),
			    SOAP::Data->type('int')->name('CustomerNumber' => $self->{_WSRequest}->{CustomerNumber}),
			    SOAP::Data->type('boolean')->name('GetAllCustomers' => $self->{_WSRequest}->{GetAllCustomers})
			);
			return @params;
}

1;
